﻿<%
Dim objFso,objFile
Dim strPath
strPath = Server.MapPath("UserMessage")
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
If Not objFso.FolderExists(strPath) Then objFso.CreateFolder(strPath)
Set objFile = objFso.OpenTextFile(strPath & "\" & formatdatetime(now,2) & ".txt",8,True)
objFile.Write "-----------------------------------------------------------------------------------------"
objfile.WriteLine
objFile.Write "时间：" & formatdatetime(now,3)
objfile.WriteLine
objFile.Write "姓名：" & request("name")
objfile.WriteLine
objFile.Write "Email：" & request("email")
objfile.WriteLine
objFile.Write "公司：" & request("company")
objfile.WriteLine
objFile.Write "信息：" & request("message")
objfile.WriteLine
objFile.Close
Set objFile = Nothing
Set objFso = Nothing
Response.write "<script>alert('ok');</script>"

%> 